@L|x}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`ACU0@@ @70@@ @U(} THE DUPED MENU};@, V,($DUPED SUPPORTS MANY OPTIONS THAT AREV(%STORED AS OVERLAY FILES. YOU MAY PICKX,($FROM AMONG THE OPTION}S LISTED BELOW:/(X($1-- SPECIAL ERROR HANDLING ROUTINES P'(2-- ZERO DOS HOUSEKEEPING BYTESP($3-- FORCE SECTORS TO N}EW FILE NUMBERJ)(!4-- READ 125 BYTE BLOCKS AND PACKJ( TO WRITE 128 BYTE BLOCKSL+(#5-- READ 128 BYTE BLOCKS AND }UNPACKL( TO WRITE 125 BYTE BLOCKS#P)(!6-- FILL SECTOR(S) WITH CHARACTERP("7-- WRITE FROM DOS FILE TO SECTORS())( }!8-- READ FROM SECTORS TO DOS FILE)H%(9-- WRITE LOCATION CORRECTED H( SEQUENTIAL FORWARD POINTER*L&(10- FORCE  }A BLOCK OF BYTES TO L(! DEFINED VALUES IN EACH SECTOR-*(&(PLEASE ENTER YOUR CHOICE: *2WW@Q@R }@S@T@U@V@W@X@Y@`36. D:DUPOVLY.0 A46. D:DUPOVLY.1 A }56. D:DUPOVLY.2 A66. D:DUPOVLY.3 A76. D:DUPOVLY.4 A86. D:DUPOVLY.5 A9 }6. D:DUPOVLY.6 A:6. D:DUPOVLY.7 A;6. D:DUPOVLY.8 A<6. D:DUPOVLY.9 An}| (}#0@@@5-@@j(POKE 764,12:LOAD>:@4,D:DUPED>:@4,|Ad@sC}-@@C(POKE 764,12:ENTER>:@4,>:@4,xE-@@3(?CHR$(125):SE.1,12,10:RUNE-@} D:DUPMENUU0@@ @70@@ @U(} THE DUPED MENU$%}NBUFASENUMSEPROGINDEHLPNT } DUPED (C)1982 MARK LOGIES70@@ @70@@ @ &&;@P,;A( },;@,67A(,.226.(hhR   S`K$(}PLEASE INSERT THE DISK THAT;(YO }U WISH TO ACCESS>(A(K(NOW (d!(PLEASE ENTER THE ABSOLUTEI(#ADDRESS (1-720) OF THE FIRST SECTOR`(YOU WISH TO MOV }E:d-!! @)!A @@.2 @F$(HOW MANY TO MOVE (2 AP/;A($+%@,,2  }B351-69 USER OVERLAY AREAF-%&@P*6-P:C:,'AV,*6-C:,&$AVZ767@<@,.>: },767@ <@ ,.>:,dx6-P:'AV,$6-&$AV>67@%<@%,.>:,X67@0<@0,.>:,x67@ }<@,.>:@,n,6-?:C:,,,F:Aq,@Ao111-139 USER OVERLAY AREA67B:,%@,. }6-%@ 151-199 USER OVERLAY AREA++(#NOW EXCHANGE MEDIA IF YOU WISH, ANDk A+(PLEASE ENTER THE } ABSOLUTES(#ADDRESS (1-720) OF THE FIRST SECTORg(TO BE WRITTEN:k!! @)!A A2( HOW MANY ( })(6-@2 B-%&@6.7<%A',*6-P:C:,'AV,*6-C:,&$AV767 }@<@,.>:,767@ <@ ,.>:,"x6-P:'AV,$6-&$AV>67@%<@%,.>:,X67@0<@0 },.>:,x67@<@,.>:@,,,6-?:C:,,,F:Aq,@A66-%A(@6-%@ J }^^F:A,"@=( ԠȠ͠ϠŠӠT(ŠҠ^ @Fh(ERROR F:A, }(ERROR F:Aq,D:DUPEDPNT ! tNABUFCMPINDEHLER #} DSKMAP (C)1982 MARK LOGIES70@@ @70@@ @ 11;@P,;@,;A($},;A(,226.(hhR   S`E67A(,.%67@,.667A(,.E67%}@,.+%(} (C)1982 MARK LOGIES((+(M#(PLEASE INSERT THE DISK THAT:(YOU WISH TO SEARCHI( HIT RETURN&}M(x@B((}T S123456789012345678^-@9@b(f x@@'}2-@@(F-@A K-@@6L467@,.%67A(,.467@,.(}P*6-P:C:,'AV,*6-C:,&$AVZ767@<@,.>:,767@ <@ ,.>:,dz6-P:'AV,&6-&+)}$AV,@67@%<@%,.>:,Z67@0<@0,.>:,z67@<@,.>:@,i6-@2n36-?:C:,,$*}F:Aq,@36-F:Aq,x 3(* A)} (>:,6-%@ #6-&@(>:AU,#+} $ (HIT RETURN TO TRY AGAIN$ @ D:DSKMAP 78NAJUMBPFPROGBUFBFHDUSEPNTINDELERQ25PR-} DSKBOOT (C)1982 70@@.} @70@@ @  (} ((6-AV11;@P,;@,;@,;@%,6./}hhhLV226.(hhR   S`C"6.HIT RETURN (TWICE) READY:(QUEUE UP YOUR TAPE;?(C0}O#@@C:0)@=)@I"O6-4( FRAMES)6-+&@,$A(4@1};,;,'(QUEUE YOUR TAPE AGAIN;#('26-+,$A(< @p3F- B-@@2}A(C:PDAP@#6-P:C:,',/ASDARC:,&+$,ZPAYA('AX@263}-P:',>AWPAV&+$,d6-?:C:,<@,n@6-F:AQ,@)@6(ERROR @ @)4}(NOW READY DISK, ANDV-(%ENTER THE ABSOLUTE ADDRESS (1-720) OFR(THE FIRST SECTOR TO BE WRITTEN:V!! @5})!A A@ 6-C:,-%&@&6-P:'AV,&6-&+$AV,767@<@,.>:,7676}@ <@ ,.>:,x6-P:'AV,$6-&$AV>67@%<@%,.>:,X67@0<@0,.>:,x67@<@7},.>:@,6-?:C:,,6-%A(6-%@  D:DSKBOOTW./=MJUMNASENUMSEPROGBUFPNTINDEHLBFDU9} CSBOOT (C)1982 MARK LOGIES70@@ @70@@ :}@ (} ((;@,6.hhhLV ;@P,;@,226.(hhR ;}  S`J#(PLEASE INSERT THE DISK THAT:(YOU WISH TO ACCESS=(@(J(NOW (d!(PLEASE ENTER THE ABSOLUTEI(#ADDR<}ESS (1-720) OF THE FIRST SECTOR`(YOU WISH TO MOVE:d2!! @)!A @@<(HOW MANY TO MOVE A'=}';+&@,$A(,;A(,B B6-C:,F-%&@P&6-P:'AV,&6-&+$AV,Z767>}@<@,.>:,767@ <@ ,.>:,dx6-P:'AV,$6-&$AV>67@%<@%,.>:,X67@0<@0?},.>:,x67@<@,.>:@,n6-?:C:,,x6-%A(6-%@ U(( MAKE SURE YOUR CASSETTE@} IS READYF(TO RECORD AND HIT RETURN.Q(READYU6-+P:,%@,$A( AG3- B-@A}@A(C:PAP@)6-P:C:,'AV,5ASPARC:,&+$AV,\AYA('B}AX@86-P:'AV,DAW\AV&+$AV,6-?:C:,<@,@D:CSBOOT? CDBFLFANTVEINV6V6V6V6V5V5V5V5V5V5V5V5V5V5V4V4V4V4V4V4V4V4V4V4V3VD}3V3V3V3V3V3V3V3@ @ E} F} !"#$%&'()*+G},-./0123456!!Recover (C)1981 Mark LogiesH}6-@6-AV'6-36-@?6-@K6-@yW6-@c6-@o6-@{6-A6-I}A6-AR6-@6-@6-@6-A '6-A36-@?6-@K6-@ W6-@ J}c6-@o6-A2{6-AP6-Af6-Ah6-A6-A?6-A06-A Y'6-@K}36-@?6-@;,;,;A,6-F:@,%F:@,$ ' A`!'(}L}ee6.[2%#/6%27illproducereadablefilesfromthoseoverwritten``67B:,%,.NwithconM}trolcharacters9ouprovidethereadandwritefilenamesand,/!$the(YY67B:,%,.Ggeneratedfile2%#/6%2takescareofN}therest); @B-%%7@:7&&<&&,,%@2; *-A +3 @EO}-%%/@:7&&<&&,,3 --A G+K' A!'P- #(ENTER SP}OURCE FILENAME:'-6-R7<,0D@S7<,4:6- T7<,4:6- U8.(&ŠŠŠQ}ĺؠĠϠ4"8 V @WA-B:,7<,4*-( ϠĠ0(66-A6-B:,%X  "R}6- Y@Z2 ((ENTER DESTINATION FILENAME:,26-[7<,0D@_f9S},9AP,;,p -)68,- r6-8,%$+8,&,t6-8,%$+8,&,v6-8,%$+8,&,x6T}-8,%$+8,&,z6-8,%$+8,&,{ A1|$ -) 67<,.>:,$  "  -)U}   -) XX6.NABCDEFGHIJKLMNOPQRSTUVWXYZFF6V}7B:,%,.4ABCDEFGHIJKLMNOPQRSTUVWXYZFF67B:,%,.4ABCDEFGHIJKLMNOPQRSTUVW}WXYZBB67B:,%,.0ABCDEFGHIJKLMNOPQRSTUVWX -68,-@:7<,,   6-1 6X}-&6-&6-&#6-&+6-&16-68,-&P:',$68,-P:',%68,-&P:',$68,-P:',%Y}68,-&P:',$68,-P:',%68,-&P:',$68,-P:',%68,-&P:',$68,-P:',% Z}- 6-8,*  - 6-8,*  A )* A) &[}(ĠԠˠ) ""@6-F:A,Ap*Ae 3(Ġ\}ŭ(3(PRESENT CONTENTS:267%,.*.*", A 2$-B) (>:,$ ]} %%"A0)"A1)"@(Һ @ D:RECOVERV4V4V4V4V4V4V4V4V4V3V]51 REM DUPOVLY.1 INSTALLED60 ? "DOS FILE MANAGER BYTES WILL BE ZEROED"111 REM CLEAR HOUSEKEEPING BYTES120 BUF$(126,128)=" _}"EM DUPOVLY.1 INSTALLED60 ? "DOS FILE MANAGER BYTES WILL BE ZEROED"111 REM CLEAR HOUSEKEEPING BYTES120 BUF$(126,128)=" 51 REM DUPOVLY.2 INSTALLED55 ? "ENTER NEW FILENUMBER 0-63";:INPUT FILNUM60 ? "SECTORS WILL BE FORCED TO FILE #";FILNUM111 $a}REM FILE# PATCH120 HSBT=ASC(BUF$(126,126)):FN=INT(HSBT/4)*4:BT2=HSBT-FN125 HSBT=(FILNUM*4)+BT2:BUF$(126,126)=CHR$(HSBT)11 $z51 REM DUPOVLY.3 INSTALLED60 ? "125 BYTES WILL BE READ PER SECTOR":? "AND PACKED."111 REM 125 BYTES/SEC120 PROG$(LEN(PROG$(c})+1)=BUF$(1,125)140 REM OVERLAY DELETES THIS LINE151 REM PACKED DATA TAKES LESS SPACE155 NUMSEC=INT(LEN(PROG$)/128)+1160 (d}LL=LEN(PROG$):PROG$(LL+1)="":PROG$(NUMSEC*128)="":PROG$(LL+2)=PROG$(LL+1)ACKED."111 REM 125 BYTES/SEC120 PROG$(LEN(PROG$(L51 REM DUPOVLY.4 INSTALLED151 ? "DATA WILL BE WRITTEN 125 BYTES":? "PER SECTOR"155 NUMSEC=INT(LEN(PROG$)/125)+1160 LL=LEN(,f}PROG$):PROG$(LL+1)="":PROG$(NUMSEC*125)="":PROG$(LL+2)=PROG$(LL+1)260 BUF$=PROG$(PNTR,PNTR+124):BUF$(126)=""310 PNTR=P,g}NTR+125UPOVLY.4 INSTALLED151 ? "DATA WILL BE WRITTEN 125 BYTES":? "PER SECTOR"155 NUMSEC=INT(LEN(PROG$)/125)+1160 LL=LEN(,25 GOTO 15151 REM DUPOVLY.5 INSTALLED151 REM DUPOVLY.5155 ? "ENTER THE NUMBER OF THE CHARACTER":? "WITH WHICH TO FILL THE 0i}SECTOR(S)";:INPUT CHAR260 BUF$(1)=CHR$(CHAR):BUF$(128)=CHR$(CHAR):BUF$(2)=BUF$(1) THE CHARACTER":? "WITH WHICH TO FILL THE 0S25 GOTO 15151 REM DUPOVLY.6 INSTALLED151 REM DUPOVLY.6155 ? "HOW MANY SECTORS IS THE SOURCE FILE";:INPUT SC157 DIM PROG$(4k}125*(SC+1)),FIL$(20)160 ? "ENTER FILENAME:";:INPUT FIL$165 OPEN #1,4,0,FIL$:TRAP 170:FOR I=1 TO SC*125:GET #1,F:PROG$(I,I)=4l}CHR$(F):NEXT I170 CLOSE #1:TRAP 40000:NUMSEC=INT(LEN(PROG$)/128)+1180 LL=LEN(PROG$):PROG$(LL+1)="":PROG$(NUMSEC*128)="":P4m}ROG$(LL+2)=PROG$(LL+1)VLY.6 INSTALLED151 REM DUPOVLY.6155 ? "HOW MANY SECTORS IS THE SOURCE FILE";:INPUT SC157 DIM PROG$(425 DIM FIL$(20)51 REM DUPOVLY.7 INSTALLED151 REM DUPOVLY.7155 ? "NOW EXCHANGE MEDIA IF YOU WISH, AND":? "ENTER DESTINATION8o} FILENAME:";:INPUT FIL$160 OPEN #1,8,0,FIL$:PRINT #1;PROG$:CLOSE #1:END CHANGE MEDIA IF YOU WISH, AND":? "ENTER DESTINATION8J51 REM DUPOVLY.8 INSTALLED151 REM DUPOVLY.8155 ? "LOCATION CORRECTED SEQUENTIAL":? "FORWARD POINTER WILL BE FORCED"265 SFH0 THEN 165167 MSK$(X,X)=CHR$(ABS(F))168 NEXT X265 BUF$(STRT+1,STRT+LGTH)=MSK$:? "THAT YOU WISH FORCED IN EACH SECTOR":I@S51 REM DUMMY OVERLAY INSTALLED(ABS(F))168 NEXT X265 BUF$(STRT+1,STRT+LGTH)=MSK$:? "THAT YOU WISH FORCED IN EACH SECTOR":ID D  C D     )16CS S)  C)D1 p p Hy}0 C9DI pCDL~CiCDiD` DD˙` d J)L !Hz}D L(( LL()  L| L( S LH 0p n  H{} CY?  q  L L  ` )H|} `A! d߰")-݆ "  $G@LLL&0") $G%H}}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0H~})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)H}  hyhyB q L> Lm JJ  Ln*` dB%'H}8  H H` 1 { LL   !L     Hh SY?  q  1LH}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1LH}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@H}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  qH} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF H} G) *Gȩ GȽG GȌd q q G`  8   0G  `DH}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`YH}`piH n0)բY? 08`0 H}  0$L GGȽG L `8L`LH}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`H}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTEH} H8EEȱEEȩEh J E8   . m  i`LI!)E1FRH}1LJ舩9GIH`LJJ`HGHh l`H} S gL   8 rii `дCDCG W  H}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}0+ H} CO |||DDOS DOSDOS SYS }H}4(%$)3+%$54),)490!#+!'%2%,#2%!4%$# -!2+,/')%3.5-"%200010}H}bsDUPOVLY 9 bwDUPOVLY 0 CxDOS SYSB*DUP SYSb{DISKED bsDISKED OVYbDSCRNIO OBJbEWPE H} 0`BDELV !B H}`LVUQ   ]   TU J ]L!T  #      TU H} L ? .  t`GBJ V~DEHI B V0dVH}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhH}DEL8HI   0 HI,0 0  9 .G VLOH},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIH} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIH} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO H}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -H}LLu DEHILV 9 .l 9 .l  `` s$B VBHH}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLH}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2eH}1i1232435ޥ<<8H} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. DL}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK FL}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟L}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1iL}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0L}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILEL}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHL}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L L} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED466 FREE SECTORS COPYING---D1:OUTLL}AW# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: BL} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#L}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%L} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C6-H BT6-@^ AK-(%ENTER OFFSET FROM SECTOR START (orP} R)7 A ;K4RA / A6-%@% B/ A)A@#6-%@)IMMKP}(@:  ' A1 AH(@ #$K$-A@#6-%@-PG ZEROJ(@P}:  ' A1 AG(@ $J$)A@#6-%@)ABSS(@P}:  ' A1 AC(@ I6.S A( A%(@ $($.A@P}#6-%@.ABS INDX v(@:  ' A1 AC(@ I6.S A] Av(@P} $(@,X$.A@#6-%@.ABS INDYv(@:  ' AP}1 AC(@ I6.S A] Av(@ $$(@,Y$.)A@#6P}-%@)IND3w(@:  ' A1 AC(@ I6.S A] Aw(@P} ($8(@)$B1A@#6-%@1INDX IND ,XGQ(@:  ' A1 AP}N(@ ($,X)Q$L2A@#6-%@2IND INDEX ,YQQ(@:  ' AP}1 AN(@ ($),YQ$V/A@#6-%@/PG ZERO,X[O(@:  ' AP}1 AL(@ $,XO$`/A@#6-%@/PG ZERO,YeO(@:  ' AP}1 AL(@ $,YO$j)A@#6-%@)IMPo(@: $t)AP}@#6-%@)RELyF(@:  ' A1 AF(@ $~' A(6-6P}-%' A` 6-6-&+AV&,# A(@ 6-#$)A@#6-%@)ACC"(P}@:  A"$ HEX ADD^6-P:'AV,&6-&+$AV,,6-6 A<6.B6-L A[67@P},.^$ !6-A 6@6-AE @-6-@:7%@<%@,,;6-%@E AP}6-@:7<,,6-%@?"@?ADD ANY BYTE TRANSLATION FOR DISASSEMBLY HERE$3 6. 6-#6-P}P:'@,36-&$@ 3 @)67@<@,.=:,3 A #%%67@<@,.>:%@U,(, P}@)67@<@,.=:,,$-(%67@<@,.>:%@U,($x46-+%&@,%++&,,$) A4MAINLIP}NE}t A A! AL6.7$@%@<$@%@,h6-@:7$@%@,,t $@~ FP}:Ad,"AUA4F:Ad,@c*AdAU4 A_AdAU7(READ AT WHAT VIRTUAL AP}DDRESSA AEO AU6-_ B+@!6-P:++&,',%,+ A i(@0(@SECTOR P} DECIMAL: BF"@JQ4_6-%@i A $6-@$ A" nn6.dBRKqORAm?P}??q???q???qORAeASLe???qPHPqORAdASLu???q???qORAfASLf???qBPLrORAn???q???q???qORAoASLo???qCLCqpp67B:,%@,.XORAi???q??P}?q???qORAgASLg???qJSRfANDm???q???qBITeANDeROLe???qPLPqANDdROLu???qBITfANDfROLfpp67B:,%@,.X???qBMIrANDn???q???q???P}qANDoROLo???qSECqANDi???q???q???qANDgROLg???qRTIqEORm???q???q???qpp67B:,%@,.XEOReLSRe???qPHAqEORdLSRu???qJMPfEORfP}LSRf???qBVCrEORn???q???q???qEORoLSRo???qCLIqEORi???qpp67B:,%@,.X???q???qEORgLSRg???qRTSqADCm???q???q???qADCeRORe?P}??qPLAqADCdRORu???qJMPkADCfRORf???qBVSrpp67B:,%@,.XADCn???q???q???qADCoRORo???qSEIqADCi???q???q???qADCgRORg???q??P}?qSTAm???q???qSTYeSTAeSTXepp67B:,%@,.X???qDEYq???qTXAq???qSTYfSTAfSTXf???qBCCrSTAn???q???qSTYoSTAoSTXp???qTYAqSTAP}iTXSq???q???qpp67B:,%@,.XSTAg???q???qLDYdLDAmLDXd???qLDYeLDAeLDXe???qTAYqLDAdTAXq???qLDYfLDAfLDXf???qBCSrLDAn???qP}pp67B:,%@,.X???qLDYoLDAoLDXp???qCLVqLDAiTSXq???qLDYgLDAgLDXi???qCPYdCMPm???q???qCPYeCMPeDECe???qINYq pp67B:,%P}@,.XCMPdDEXq???qCPYfCMPfDECf???qBNErCMPn???q???q???qCMPoDECo???qCLDqCMPi???q???q???qCMPgDECgpp67B:,%@,.X??P}?qCPXdSBCm???q???qCPXeSBCeINCe???qINXqSBCdNOPq???qCPXfSBCfINCf???qBEQrSBCn???q???q???qDD67B:,%@,.,SBCoINCo???qSEDP}qSBCi???q???q???qSBCgINCg???q$@ 46.A$$7@<@,4$ABO7@<@,0-L7@P}<@,20)7@<@,39O'C 6-A:,=:,4$D 6. AE76-76-P:@#++B:,&P}@,,%?P,J-@B:,T"7<,206." A^.7<,/9$6-%+A:7<,,$,. AUh-P}7<,2A)7<,3F#6.- Ar!!6-%++@:7<,,&@U,$,w6-'@ $226.(hhRP}   S` H#(PLEASE INSERT THE DISK THAT8(YOU WISH TO EDIT;(>(H(NOW X!(PLEASE ENTER THE ABSOLUTEP}C(ADDRESS (1-720) OF THE SECTORX(YOU WISH TO SEE+ A p A!6-+ B !! @)!A P}A p**6-P:C:,'AV,*6-C:,&$AV4767@<@,.>:,767@ <@ ,.>:,>x6-P:'AV,$P}6-&$AV>67@%<@%,.>:,X67@0<@0,.>:,x67@<@,.>:@,C6.7&@<,H=P}6-?:C:,,$F:Aq,@:(ERROR F:Aq,=R6-Wn@.@@E::6-P}T0@@ @n0@@ @X"@ \m,($}ENTER DISPLAY MODE-- CHARACTER (C),N(DP}ECIMAL (D), HEX (H), DIR (F)m(OR MNEMONIC (N) (or P,I,T)a="@!-@@=(MNEMONIC TRANSLATION ONb=Q}"!-@@=( cA"@!-@@A(INTERNAL CHAR. DISPLAY CODEdAQ}"!-@@A( f F:Ad,"AUA!Pp4F:Ad,"@5*AdQ}AU4 A z4F:Ad,"@*AdAU4 A"pJ"F:Ad,"@E*"4AdAUQ}@6-@J A!EJ"F:Ad,"@E*"@4AdAU@6-J A!EJ"F:Ad,"@*"Q}4AdAU@6-@J A!EJ"F:Ad,"@*"@4AdAU@6-J A!E4FQ}:Ad,"@W*AdAU4 A$04F:Ad,"@X*AdAU4 A&4F:Ad,"@V*Q}AdAU4 A)0""*F:Ad,"@4AdAU?@I A!5i@@Q}P:x( TO PRINTER6-@ B>""@*F:Ad,"@4AdAU> A!5AdAUQ} A!P'0@@ @' A" g%(VERIFY/EDIT(1),WRITE EDIT(10)O(%NO EDIT;NEW SECTOR(3),SAVE TO FILE(Q }4)g(LOAD FROM FILE(5),( VIEW CONT.(6)!@A" d BdO:,A!5A" A pA' Q }A'`A1A" A" A" A&p A" 6-A"p)0@@ @;A@$GQ }6-S6-u6-F:@,%F:@,$AV(@}SECTOR  DECIMAL 5 A(`!%@@Q }5%A@]-%A %AG)6-F:C:,%,76-%@C!A'Q6-&A(]6-@"@Q }A#' @26-%@d' A# @6-&@2 )"@6-%A()6- Q}   I-@@(&"@*14?6-%@I A  F6-0(DO YOU WISH TO EDIT Y/NQ} (S)4<4SF A2 0YA$ $ @. Q%(ŠWHEN FINISHEDC( AND HIT RETURNQ} READY M A#`Q8 B-@@"'@@,(86-B BB J-%A %AG$6-F:,Q}0!A'>6-&A(J6-@G "@A$L ' @d6-%@2' A$V  @6-&@dQ}` )"@6-%A()6-j C:,%+&+%A ,, t 0A@(}&@0 A" Q}~ g6-A$0!A@$-6-R(@}SECTOR  DECIMAL \ A(`g(@ -A5 ]Q}-@ 6. .6-F:C:,%,<6-%@M6-P:'@,]6-&$@ 3 @)67@<@,.Q}=:,3 A$ %%67@<@,.>:%@U, 3 @)67@<@,.=:,3 A% %%67@<@Q},.>:%@U, '(@ #6-%@'  (@  [-@@ (,A@8"@Q}<C4Q6-%@[ A  F6-0(DO YOU WISH TO EDIT Y/N (S)4<4SF A2 0YA%Q} ; A%0'(PLEASE ENTER BYTE # +5 A;6- 9%(ENTER BYTE VALUE ($ FOR HEX ))3 A96- Q}C:,% B @ A" ( g6-A&!A@$-6-R(@}SECTOR  DECIMAL Q}\ A(`g(@2 -A5< Q-@1(@F:C:,%,,?6-%@M6-%@Q F (Q}@ P [-@@ (,A@8"@<C4Q6-%@[ A U F6-0(Q}DO YOU WISH TO EDIT Y/N (S)4<4SF A2V 0YA&aZ C A&P+(PLEASE ENTER BYTE # (DEC)=( AND NEWQ} VALUECd C:,%e @ A" n *6-P:C:,'AV,*6-C:,&$AVx 767@<@,.>:,76Q}7@ <@ ,.>:, ##67@<@,.>:@, =6-?:C:,,$F:Aq,@:(ERROR F:Aq,= 4Q}A@$*(}EDIT COMPLETED.4 A p 7 (}LOAD DESTINATION MEDIA-3(ENTER FILENAME7 @@Q } 0-A',*@F:%C:,,0  @ A"  2(}LOAD SOURCE MEDIA-.(ENTER FILENAMEQ!}2 @@ P'(}ENTER BYTE COUNT FROM START OFP($FILE TO WHERE 128 BYTE BLOCK WILL BE + A'Q"} A!6-+ A(  "A( "-@)@"  5-A'$)@Q#}1%+C:,,5  3@-A'/%+C:,,3  M%(}ENTER DESTINATION SECTOR NO./ A(03= Q$}AC6-M B !! @)!A A(0" 6-P:'AV,$6-&$AV>67@%<@%,.>:,X67@0Q%}<@0,.>:,x67@<@,.>:@, A!5, P(6-P:@:7A&<A&,,'@,P6-+@:7A&<A&Q&},,&+$@,,6 ))6-@:7A'<A',,%+$AV,@ 96-@:7A(<A(,,) A(/6-9 A)J 6-&AQ'}(T (@  ^ # A% (@#$h (@$r b6-A)0!A@$3AQ(}@W(@}SECTOR  DECIMAL b(@| ,,(@# FILENAME START LEN FLG -@Q)} ..6.7$@%@<$@%@, ;;6-@:7@<@,,%@:7@<@,,$AV U;6-@:7@Q*}<@,,%@:7@<@,,$AVU6-@:7@<@,, 66(@ 7@<@,   .Q+}!A'$(@DELETED. A00 -!@#(@LOCKED- A00 (@   mF(@AQ,}DD +&Aa,$@ TO EACH FILE# IF NORM DOSm("USE CHAR. MODE TO CHANGE FILENAMES m-@@ (,AQ-}@>A@J"@NU4c6-%@m A  C6-/(DO YOU WISH TO EDIT VALUES3Q.}C0YA0 M!(ENTER CHANGE FILE# (0-7)+ A0`/M!@) A0` ; A0e'(ENTER START SQ/}EC. NO.+5 A;6- 3 A0u( ENTER LENGTH#- A36- I A0!(ENTER FLAGBYTE%/ AQ0}56-I!AUA0 T167$@%@<$@%@,.>:,B6-P:'AV,T6-&+$AV, 167$@Q1}%@<$@%@,.>:,_67$@%@<$@%@,.>:,p6-P:'AV,6-&+$AV, _167Q2}$@%@<$@%@,.>:,_67$@%@<$@%@,.>:, " B@" A"  'Q3}6-@6-%@' A  d A2A@2( } ENTER FILE#6@ AF6-d!@c) Q4}A2 < A2((ENTER FORWARD POINTER,6 A<6- 7 A2 #(ENTER BYTE COUNT'1 A76-Q5} ' A2 A%'6-%A( 67A(<A(,.>:, : 6-+$@,%P:'AV,:67A&<A&,.>:,Q6} 4467A'<A',.>:&+P:'AV,$AV,, $}(F:Ad, B D:DISKEDAA,%@Q7}D:DISKED4(%$)3+%$54),)490!#+!'% #/092)'(4-!2+,/')%3!,,2)'(432%3%26%$ !.9$50,)#!4)/./&4()302/'2!- Q8}%8#%04&/2!2#()6!,53%"94(%/2)').!,052#(!3%2 )3%802%33,902/()")4%$FPFLF1ACFXQ9???qORAeASLe???qPHPqORAdASLu???q???qORAfASLf???qBPLrORAn???q???q???qORAoASLo???qCLCqpp67B:,%@,.XORAi???q???q???qOQ:RAgASLg???qJSRfANDm???q???qBITeANDeROLe???qPLPqANDdROLu???qBITfANDfROLfpp67B:,%@,.X???qBMIrANDn???q???q???qANDoROQ;Lo???qSECqANDi???q???q???qANDgROLg???qRTIqEORm???q???q???qpp67B:,%@,.XEOReLSRe???qPHAqEORdLSRu???qJMPfEORfLSRf???Q??q???qSTYeSTAeSTXepp67B:,%@,.X???qDEYq???qTXAq???qSTYfSTAfSTXf???qBCCrSTAn???q???qSTYoSTAoSTXp???qTYAqSTAiTXSq??Q??q???qpp67B:,%@,.XSTAg???q???qLDYdLDAmLDXd???qLDYeLDAeLDXe???qTAYqLDAdTAXq???qLDYfLDAfLDXf???qBCSrLDAn???qpp6Q@7B:,%@,.X???qLDYoLDAoLDXp???qCLVqLDAiTSXq???qLDYgLDAgLDXi???qCPYdCMPm???q???qCPYeCMPeDECe???qINYq pp67B:,%@QA,.XCMPdDEXq???qCPYfCMPfDECf???qBNErCMPn???q???q???qCMPoDECo???qCLDqCMPi???q???q???qCMPgDECgpp67B:,%@,.X???qCPXdSQBBCm???q???qCPXeSBCeINCe???qINXqSBCdNOPq???qCPXfSBCfINCf???qBEQrSBCn???q???q???qDD67B:,%@,.,SBCoINCo???qSEDqSBCi??QC?q???q???qSBCgINCg???q$FACFXTTEBBOFINFILENUTEMPFWDPNTBYTCNPNSCNSCNFLGBYMHAADDDTAADMAPp`RXYnl m  S i l i mi}inЩЭL 25912530 TXqQYfVTPPFSPC]%6-F:@,%F:@,$]F}AV16-@=6-C6-Y(STARTING PAGE NO];@, (}6.D:PAGE # @Ad]G}@R#HHF:B2y,@@@e@@U@ @O2@@@--@]H}1 ;2O@P:6-%A Y6-F:,(!A'66-&A(#' @d6-%@2' @E]I}('!@c* @'6-&@d- *  @7&67@,.=:,&@<A-%A ]J}Y*F:,! /6-%@5;6-A6-= @uA!(PAGE NO.!6-B5-@#($67@]K},.=:,5@F$-%A Y) $ K-@# @P 6-(EDIT  @e ]L}D:WPEYfVTPPFSPC]%6-F:@,%F:@,$\ 4hisexampleofscreendisplayworksbyusingtheresidentdiskhandlertoloaaN}dthetextdirectlyintoscreenramwhichissuppliedtothehandlerastheloadaddressaO}!syoumayknow datainscreenramisencodeddifferentlythannormal!4!3#))dataaP}4hedatastoredinthediskfilesdisplayedhereisalreadytranslatedtotheproperscreenramvaluesaQ}$atainthesefileswasstoredusingtheprogram70%onthaR}ereleasedisk70%worksasapoormanstypewriter allowingtexttobetypedonscreen savedtodisk recalled ediaS}ted andevenprintedonthe!4!2)printer!quickguideto70%usefollowsaT}usingtheresidentdiskhandlertoloa`U70%worksasfollows7henrun 70%asksyouforthestartingpagenumber4hieV}snumberisusedbytheprogramtoproducethefilenames0!'% etc!ftereachscreenissavedtodisk 70%increW}ementsthenumbertobeusedinthefilename9outhentypeeX}normally2%452.willadvancethecursortothebeginningofthenextline!lloftheeditingfeaturesnormallyeY}foundin"!3)#areactivecursorcontrol insert clear delete etc eZ}4oaccesstheotherfunctions youwillholddownoneormoreoftheyellowkeys34!24 3%,%#4 /e[}04)/.asyouhitthelast2%452..otethatthecursorwillmovedownalineonthislast2%452. andmayscrollthese\}creenifonthelastlinesyouforthestartingpagenumber4hidU&5.#4)/.3!6!),!",%02).4).'4/4(% (/,$$/7.34!247()i^},%()44).'2%452.3!6).'!3#2%%.4/$)3+ (/,$$/7.3%,%#47i_}(),%()44).'2%452.2%#!,,).'!3#2%%. (/,$$/7./04)/.!.$3500,94(i`}%0!'%.5-"%27(%.!3+%$9/5-!9%$)4"%&/2%02).4).'2%#!,,).'!3#2%%.ia}&/2%$)4!.$3!6).'4/4(%3!-%$)3+&),% (/,$$/7."/4(/04)/.!.$3%,%#4 3500,94(%0!'%./9/5-!9%$)44(%3#2%%.ib}4(%.%843!6%7),,"%4/4(%3!-%0!'%.5-"%2!&4%24(%.%843!6% 0!'%.5-"%232%452.4/./2-!,3%15%.#%ic}70%maybecheapanddirty butitisusefulforprintingsimplenotes id}andsavingdataforscreendisplay.4).'4/4(% (/,$$/7.34!247()hUY*:ONTWTHREFOUAHELL@@@@ @@@3-@6-@mf}'6-@36-@;@,( 6-6-2-@@<"F P U THAT'S ALL FOLmg}KS!!!Z88THE,QUICK,BROWN,FOX,JUMPS,OVER,THE,LAZY,DOG,PERIODD:SAMPLE@@@3-@6-@lNb1C1982LOGIESbAUTORUN SYSb DUPMENU bDUPED b "DSKMAP b ,DSKBOOT b 8CSBOOT bCRECOVER b^DUPOVLY 1 b`DUPOVLY 2 bbDUPOVLY 3 beDUPOVLY 4 bhDUPOVLY 5 bjDUPOVLY 6 bnDUPOVLY 7 bpDUPOVLY 8 bsDUPOVLY 9 bDUPOVLY 0 B'xDOS SYSB*DUP SYSb{DISKED bsDISKED OVYbDSCRNIO OBJbEWPE CPAGE0 b xALLOC CCARTCOPY 2135 CLOSE #1:CLOSE #6:OPEN #1,8,0,"E:":OPEN #6,4,0,"S:":PFLG=0:SETCOLOR 2,9,2:SETCOLOR 4,9,22522 IF PFLG=1 THEN 25912530 TUt}RAP 2540:POKE 703,24:? "PLEASE Š ":? "WHEN FINISHED AND HIT RETURN. READY";:INPUT A$2540 TRAP 40000:POSITIONUu} 2,22:? "":POKE 703,4:? "}JUST A MOMENT"2550 FOR Z=0 TO 15:FOR Y=0 TO 7:INPV=0:FOR X=0 TO 1:LOCATE (Y*3+X+2),Z+2,VAR2551 IFUv} VAR<58 THEN INPV=INPV+((VAR-48)*(16-(X*15))):GOTO 25602555 IF VAR<71 THEN INPV=INPV+((VAR-55)*(16-(X*15)))2560 NEXT X:B1=(Uw}Z*8)+Y+1:BUF$(B1,B1)=CHR$(INPV):NEXT Y:NEXT Z2590 TRAP 40000F VAR<71 THEN INPV=INPV+((VAR-55)*(16-(X*15)))2560 NEXT X:B1=(T>6 ? "}THE ALLOCATION BITMAP RESIDES IN":? "SECTOR 360. INSERT IN DRIVE #1 A":? "DISK YOU WISH TO UPDATE. READY";7 DIM F$(15)y}8 F$="hIԩ`"25 INPUT A$:R=1:W=1:SEC=360:NUMSEC=1:GOTO 47151 REM DUPOVLY.11 INSTALLED155 TRAP 155:? "ENTER FIRST, Lz}AST SECTORS IN THE":? "BLOCK TO BE REALLOCATED";:INPUT FIR,LAST156 TRAP 40000:IF FIR>720 OR LAST>720 OR FIR<1 OR LAST<1 OR L{}ASTA$ THEN SECNT=SECNT+1}180 NEXT DEX182 AVAL=ASC(BUF$(4,4))+ASC(BUF$(5,5))*256:IF AVAILFLG=0 THEN AVAL=AVAL-SECNT183 IF AVAILFLG=1 THEN AVAL=AVAL+S}ECNT184 HB=INT(AVAL/256):LB=AVAL-(HB*256):BUF$(4,4)=CHR$(LB):BUF$(5,5)=CHR$(HB)185 ? "HIT RETURN TO REWRITE THE MAP;":? "HI}T IF NO REWRITE WANTED";:INPUT A$190 PROG$=BUF$:SEC=360:NUMSEC=1:PNTR=1:GOTO 250HIT RETURN TO REWRITE THE MAP;":? "HIX(C) 1982 MARK LOGIESO!"Li3!34 OR W>4 THEN 630 ? "LOAD IN Dzk}RIVE ";R;" THE DISK THAT":? "YOU WISH TO ACCESS":? :? :? "NOW ";90 N$(15,15)=CHR$(LB):N$(20,20)=CHR$(HB):N$(5,5)=CHR$(R)200zl} ? "NOW LOAD THE DESTINATION DISKETTE":? "IN DRIVE ";W;" AND"280 N$(15,15)=CHR$(LB):N$(20,20)=CHR$(HB):N$(5,5)=CHR$(W) ?zm} "TWO DRIVE ROUTINE ENTERED.":? "THANK YOU. DUPED IS NOW ENABLED":? "FOR TWO DRIVE OPERATION." x(C) 1982 MARK LOGIES(C) 1982 MARK LOGIES(C) 1982 MARK LOGIES(C) 1982 MARK LOGIESbMPAGE1 bUPAGE2 b]PAGE3 BeSAMPLE bMPAGE1 bUPAGE2 b]PAGE3 BeSAMPLE bPRNTSCRN bEXORTRAN bhTWODRIVE bCONFIG (C) 1982 MARK LOGIES(C) 1982 MARK LOGIES(C) 1982 MARK LOGIES100 FIL$="hIԩ`"105 POKE ADR(FIL$)+4,173:REM POKE FIL$+4 WITH THE VALUE EACH BYTE IS TO EXOR WITH. 173 IS $AD110 POKv}E ADR(FIL$)+2,MACH120 MACH=USR(ADR(FIL$))130 RETURN 1305 IF F9=1 THEN GOSUB 100 GRAPHICS 1 ? #6;" DISKED PRESENv}TS":? #6:? #6 ? #6;" an autoprompting" ? #6;" " ? #6:? #6:? #6 ? #6;" ":v}? #6;"٠":? #6;"ӠՠҠ":? #6;"٠" ? #6 ? #6;"":? #6;"v}":? #6;"" SOUND 0,21,10,8:SOUND 1,21,10,8:SOUND 2,21,10,8:SOUND 3,21,10,8 FOR X=1 TO 5:NEXT X v} FOR X=1 TO 500:NEXT X:GRAPHICS 0 t45NMECDDEFMPRPOSPOSSTAROFVVTVHLDLLLP} &&;@,;A,;A,}6-F:AB,nn6.dfff 60 0`01cgxƌ1`3gΞΜ9s99sϖ'g@}ww67A,.d0~ 0`@ 8 r̘8q8p``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf8pp8?ww67A,.d}ww<~~~<ww67A,.d}x`x`~<~~<0~0 ~ <~~<<>f>``|ff|<```<ww67A,.d>ff>}>ff>|``|fff8<<``lxlf8<fkc|ffffff>|f```>`<|}~ffff>fff<ck>6f< x~ 0~<~~<U 6-C:,%6-P:'A$,%@36-$A$U}6-F:A@,%F:AA,$AV 9 6-&-6-F:A4,%F:A5,$AV96-@#T6-P:'AV,$6-&$AV}<%$@%@T%$@%@$ 6.AV$@(oAAF'A @v9A}AFKAR@]A@oA@B-u%6-F:A`,%F:Aa,$AV9%@ @M%}@@a%@@u%@@2g (} (((6( :;< =>? #$%&'()*+ L( ENTER}PRISESO(R(g( PRESENTS5)()( 7B()( THE DISKED UTILITY PACKAGEB( }by RON NOTTAGE<Y( S/N DE00000(:( FOR 24K ATARI 400/800Y(WITH ATARI 810 DISK DRIVEA46-A6-}A*6.D:DISKED4 A@F-@A dU +AAR1A ACAAR}UAR@ik (}(DISKED(h(JDISKED ALLOWS YOU TO READ FROM AND WRITE TO ANY SECTOR ON THE 810 DISK.k(}nmm(dIN ADDITION, YOU MAY EDIT ANY SECTOR'SDATA IN HEX, DECIMAL OR CHARACTER MODE(BOTH ATASCII AND SCREENsKH(@ CODE). }YOU MAY READ ALL THE DIRECTORY INFORMATIONAND EDIT IT.K(xnn(eYOU MAY ALSO DISASSEMBLE DATA TO 6502 MNEMONICS WITH VIRTU}AL ADDRESSING TO SHOW WHERE THE CODE WOULDm( ACTUALLY(RESIDE. (m(HYOU CAN SAVE SECTOR DATA TO A NAMED FILE O}R LOAD A SECTOR FROM A FILE.46-A6-@2*6.D:DISKED4 A09AAF'AAF9A} Ar (}(DUPED(r(TDUPED ALLOWS YOU TO MOVE ANY SECTOR ORBLOCK OF SECTORS FROM ONE PLACE TO ANOTHER,}s%( OR FROM ONE DISK TO ANOTHER.((s(EDUPED ALSO ALLOWS MANY OPTIONS AND MANIPULATIONS OF THE DATA WHICHRR(J }YOU MAY EASILY SELECT USING THE DUPMENU, DESCRIBED ON THE NEXT SCREEN.36-A6-A)6.D:DUPED3 A0},xAA'AA9A A?(}M( DUPMENUP(x(#DUPMENU INSTALLS FOR YOU ALL OF THE6i,(}$OPTIONS SUPPORTED BY DUPED, SUCH AS:/(Q(INSERTING NEW FILE NUMBERS ORf(FORWARD POINTERSi(@TQ(IPACKING AND UNPACK}ING DATA FROM 125 BYTE (DOS) TO 128 BYTE (BOOT) FILEST(J??(7TRANSFERS BETWEEN NAMED FILES AND BLOCKS OF SECTORS^5}6-A6-A+6. D:DUPMENU5 A0AAD'AAD9A A?(}L(CSBOOT}O((-CSBOOT TRANSFERS 128 BYTE SECTOR BLOCKS,DD(< ON DISK, TO SHORT IRG (INTER- RECORD GAP) FORMAT CASSETTES.}@(@(4YOU SPECIFY THE STARTING SECTOR AND LENGTH OF THE (DISK BLOCK TO BE MOVED.46-A6-A*6.}D:CSBOOT4 A0A@f'A@f9A A?(}M( DSKBOOTP(()DSKBOOT READS BOOT FO}RMAT CASSETTES ANDJJ(B ALLOWS YOU TO WRITE THE DATA AS A BLOCK OF 128 BYTE DISK SECTORS.Q(Q(FYOU SPECIFY THE STA}RTING SECTOR OF THEDISK BLOCK THAT WILL BE WRITTEN.&56-A6-A+6. D:DSKBOOT5 A0XAA}'AA9A A?(}M( RECOVERP((+RECOVER MAKES LISTABLE FILES FROM THOSEb[[(S THAT WIL}L ONLY LIST GARBAGE DO TO THE DESTRUCTION OF THEIR VARIABLE NAME TABLES.lp(p(eRECOVER READS THE FILE AND TRANSFERS IT}S CONTENTS IN A LISTABLE FORM TO A NEW FILE FOR YOU TO LOAD.vE(E(:RECOVER WORKS ONLY ON ATARI BASIC FILES SAVED TO }DISK.56-A6-A+6. D:RECOVER5 A0AAQ'AAQ9A A?(}L(}DSKMAPO((,DSKMAP READS A DISK AND PLOTS A MAP ON THE?$( SCREEN OF THE SECTORS WHICH?(CONTAIN NON-ZERO DATA.}@(@(5DSKMAP ALSO MARKS THE SECTORS WHICH PRODUCE ERRORS.46-A6-A*6.D:DSKMAP4 A0 C +}A@41A@4CA A%aAR@(}'( WPE*(a(1WPE ALLOWS YOU TO US}E YOUR COMPUTER AS A MEMORY*p( TYPEWRITER.(p(TYOU CAN SAVE SCREENS TO DISK, EDIT THEM AND PRINT THEM ON THE AT}ARI 820 PRINTER.4a(a(VYOUR UTILITY PACKAGE MANUAL WILL TELL YOU HOW TO RECALL THE INSTRUCTIONS FORUSING WPE.R16-@2}6-A'6.D:WPE1 A0 U-@@ <("HIT TO GO ON; TO BACK UPU(HIT TO RUN } &6-F:Ad,&"AUA0 }"@!AdAU3AR=+C(}UAAFg}AAFyA A}% %"@3!AdAU%  %"@(!AdAU%  Ad}AU A0F-@@ <("HIT TO GO ON/ TO BACK UPF A0D:C1982LOG.IESm2 ? "ENTER 1 TO IGNORE ERRORS;":? "ENTER 0 FOR EXECUTION CONTROL";:TRAP 2:INPUT IGN:TRAP 40000300 T=USR(ADR(N$)):IF PEEK(771F})<>1 THEN 500400 ? "READ ERROR ";PEEK(771);" AT SEC. ";SEC:IF IGN=1 THEN A$="S":GOTO 430410 ? "ENTER CHOICE: RETRY (R),SKIPF} TO":? "NEXT SEC (S),ABANDON (A)":TRAP 410:INPUT A$:TRAP 40000420 IF A$="R" THEN 80430 IF A$="S" THEN BUF$(1)="":BUF$(128)F}="":BUF$(2)=BUF$:GOTO 111440 IF A$="A" THEN END 450 GOTO 410500 ? "WRITE ERROR ";PEEK(771);" AT SEC. ";SEC:IF IGN=1 THEN F}310510 ? "ENTER CHOICE: RETRY (R),SKIP TO":? "NEXT SEC (S),ABANDON (A)":TRAP 410:INPUT A$:TRAP 40000520 IF A$="R" THEN 260F}530 IF A$="S" THEN 310540 IF A$="A" THEN END 550 GOTO 510ABANDON (A)":TRAP 410:INPUT A$:TRAP 40000520 IF A$="R" THEN 260D<********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************